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DISCLAIMER 



Although each program has been tested by its contributor, no 
warranty, express or implied, is made by the contributor or 
1620 USERS Group, as to the accuracy and functioning of the 
program and related program material, nor shall the fact of 
distribution constitute any such warranty, and no responsibility 
is assumed by the contributor or 1620 USERS Group, in con- 
nection therewith. 



1620 USERS GROUP PROGRAM REVIEW AND EVALUATION 



(fill out in typewriter or pencil, do not use ink) 

Program No. Datfe. 

ogram Name: 



Q>r 



1. Does the abstract adequately describe what the program is and what Yes No. 

it does? 
C ommen t 

2. Does the program do what the abstract says ? Yes No. 

C ommen t 

3. Is the Description clear, understandable, and adequate? Yes No. 

Commen t • 

4. Are the Operating Instructions understandable and in sufficient detail? Yes No. 

Comment . 

Are the Sense Switch options adequately described (if applicable)? Yes No. 

Are the mnemonic labels identified or sufficiently understandable? Yes No. 

Commen t 

5. Does the source program compile satisfactorily (if applicable)? Yes No_ 

Comment ______________________ 

6. Does the object program run satisfactorily? Yes No. 

Comment , 

7. Number of test cases ru n Are any restrictions as to data, 

size, range, etc. covered adequately in description? Yes No. 

Commen t 

8. Does the Program Meet the minimal standards of the 1620 Users 

Group? Yes No_ 

C omment 

9. Were all necessary parts of the program received? Yes No_ 

Commen t _ 

10. Please list on the back any suggestions to improve the usefulness of the program. 
These will be passed onto the author for his consideration. 

Please return to: Your Name 



Mr. Richard L. Pratt Company 
Data Corporation 

7500 Old Xenia Pike Address 
Dayton, Ohio 45432 



User Group Code 

©3IS REVIEW FORM IS PART OF THE 1620 USER GROUP ORGANIZATION'S PROGRAM 
REVIEW AND EVALUATION PROCEDURE. NONMEMBERS ARE CORDIALLY INVITED 
TO PARTICIPATE IN THIS EVALUATION. m 

/ 11/09/64 
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FORTRAN TEACH 



Direct Inquiries to: Prof. Wendell L. Pope 
Computer Center 
Utah State University 
Logan, Utah 



Modifications or revisions to this program, as they occur, 
will be announced in the appropriate Catalog of Programs 
for IBM Data Processing Systems. When such an announce- 
ment occurs, users should order a complete new program 
from the Program Information Department. 



1620 USERS GROUP LIBRARY 
PROGRAM ABSTRACT 

1. TITLE (If subroutine, state in Title): FORTRAN TEACH 



2. Author; Organization: Wendell L. Pope. Utah State University 



Date: March. 1964 Users Group Membership Code: 

3. Direct Inquiries to Name: Prof. Wendell L. Pone, Computer Center, Utah otate '■• : v. , 

Logan. Utah 8*f?21 Phone : 732-^100 Ex. 

4. Description/Purpose: (5. Method; 6. Restriction/ Range; When Applicable) 

FORTRAN TEACH is a set of programs and student problems designed for use duri nr the 

early part of a course teaching FORTRAN programming. They enable the student 

to get something on the machine before he can write a complete program . and 

they assist the instructor in checking the problems. 




7. Specifications (Check or fill in appropriate spaces): 

a. Storage used by program: 

b. Equipment required by program: 

Card System ; Magnetic Tape System ; No. of Tapes 

Paper Tape System j Disk File System ; No. of Packs 



TNS, TNF, MF ; Auto divide ; Indirect addressing jFloating point hardware 



Other (specify) These programs are written in FORTRAN for the FORGO processor. They 
can be used by any installation using FORGO. 

Can program be used on lesser Machine? . Specify which requirements can be 

easily removed 
c. Programming type (Check appropriate spaces): 

Fortran without Format ; Fortran with Format ; 



Fortran II ; Mainline, Complete ; Subroutine or function subprogram(S or F) 

Is the program a library (ie, SPS) function to the Fortran system checked? 

SPS SPS - 1620/1710 ; 

Mainline, Complete \f ; Macro ; Subroutine ; 

Other programming language: f~0/C4o ; Give details 

d. Language used in the writeup: Sn^\iik 

8. Additional Remarks: The programs were introduced at Utah State University by 

the author in the summer of 1965. They have been adopted for use in other 

courses and polished to their present form chiefly bv Dr. B. C. '.fa thins --rid. 

E. C. Olsen of the College of Engineering. U.S.U. 
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DECK KEY 



1. Six Sample Problem Decks 

No. 1 101 through 129 in cc 78-80 

No. 2 201 through 229 in cc 78-80 

No. 3 301 through 327 in cc 78-80 

No. 4 401 through 427 in cc 78-80 

No. 5 501 through 526 in cc 78-80 

No. 6 601 through 632 in cc 78-80 

The last card of the deck is the "Sample Run Request (ControlJCard" 
pictured on page 3 of the writeup. 
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Utah State University 
Logan, Utah 



FORTRAN "TEACH" PROBLEMS 

by 

Wendell L. Pope 

These problems are designed to be of assistance in introducing the neophyte 
to FORTRAN. Problem sets and programs to check them are provided for arithmetic 
statements, subscripted variables, fixed and floating point variables, functions 
and control statements, loops and input-output. The problems do not require 
that a student be able to write a complete program. They provide a means of 
acquainting him with the characteristics of FORTRAN in easy stages and help to 
bridge the gap between the introduction to computing and the writing of a complete 
program. The student's statements are checked for correctness by imbedding 
them in the appropriate checking program. They are checked for compilation 
errors by the FORGO processor, and for accuracy by the checking program itself. 
This is done by comparing the values computed by the student's statements to a 
predetermined set of "correct" values. For wrong answers, the number of the 
problem and the value computed are output, for right answers only the number of 
the problem is output. 
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FORTRAN TEACH PROGRAMS 

These programs are designed to be used as follows: The instructor 
introduces a new topic to the class, for example; how to form Arithmetic 
statements; he then passes out the problem set pertaining to that subject. 
The student puts into practice what he has been taught by writing FORTRAN 
Arithmetic statements as the problem set directs. He keypunches them into 
cards, and submits them to the Computer Center with a properly prepared run 
request card. 

The operator then must insert the student's statements into the 
appropriate TEACH program (many of them can be batch processed at one time) 
and run it. The FORGO Processor compiles the TEACH Program including the 
student's statements; it will duplicate the run request card in the output 
and follow that with an error message for each error found in compilation. 
If no errors in compilation are detected, the compiled program is executed. 
The TEACH Program reads the numbers necessary to assign values to the quantities 
referred to in the student's statements; it also reads the values of the 
answers the student should get if his statements are correct. The student's 
statements are then executed. If errors in compilation or execution are 
detected, the appropriate messages are output and the next problem is begun. 
If no errors in execution occur, the TEACH Program compares each quantity 
computed by the student's statement, and outputs the numbers of the statements 
that are right and the numbers of the statements that are wrong, together 
with the student's answer and the correct answer. 

The operator then lists the output, and a copy is returned to the 
student with his input cards. A copy is returned to the student with his 
input cards. A copy can also be prepared for the instructor if that is 
desired. The output cards can then be discarded, except this installation 
preserves the copy of the run request card as a record of the student 
problems run. 
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TEACH PROBLEM 1 



Program IdVnti n catlon . CoIb. 48-T4 



Keypunch the above Information la tbe column Indicated. Supply one copy of tma card for FOROO or FOft-TO-OO programs, two copUa for otban 
to be oaod: 



1041264 



n for running Iba program (Include dlagooatlca dealr*d). 



feutmcttOBS for Hal as the owtpat 
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TEACH PROBLEM SET 1 
Arithmetic Expressions 



Assume that values of A, B, C, D, E, F, G and H are in storage. Write 
and keypunch correct FORTRAN statements to evaluate each of the following 
expressions. 

!. X(l ) = A+ _dL_ 2 . x(2 ) = A^B 



3. X(3) = AB +\C ^ - G h. X(«0 



5. X(5) = A + B c - | 6. X(6) 

+ tt (n = 3.1^1592653...) 

RT 

8. X<8) = ^ + 

9. IfE>B>A>H>C>F>G>0, compute 

X(9) =A+B+C+E+F+G+H 
to obtain the most accuracy. 

10. X(lO) = A + B 2 + 3^ 




7. X(7)=A (B3 * C) 
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TEACH PROBLEM SET 2 
Subscripted Variables 



Assume the arrays A =1 



a ll 


a 12 




a lT 


a 21 


a 22 


a 23 




a 31 


a 32 


a 33 




Afl 


%2 


a *3 


a Mt* 



and B = 



vV 



are in storage. Write and keypunch correct FORTRAN statements to 
evaluate each of the following expressions. 



X(l) = 



a 15 4 a l4 



4 
3=1 



2. X(2)= Z a, . b. 

J-3 3 



3. X(3) = 2 a 
3=1 

5. KS)-*! 3 



b. 

3 

2j 



4. X(4) = a 31 X 1 + a^ + a^ + a^xj 



where €b^3 denotes the integer portion of b^. 



TEACH PROBLEM SET 3 
Fixed point, Floating point, and subscripted variables 



Assume that values of k and L and B 



are in storage. 



Write and keypunch correct FORTRAN statements to evaluate each of the 
following expressions. 



1. 



*1 = 



i=l 1 



£ 
i=l 



3. X. = £ b., . 
3 _. , ik-i 



2. X 2 = b , 

k"-5 

^ k 

4. x, = r b. 

4 i=l 1 



5. X 5 = I + k L + k 3 - 2 



TEACH PROBLEM SET k 
Functions and Control Statements 



Write (and keypunch) statements to evaluate X^, X 2 , X^ and X^ according 
to the instructions in the flow chart below. Assume A, B, C, D, E, F 
and K to be defined. 

Start 



*1 



A *.A < ,f) 



Test A y- 



,.A > > 



A = 



X 2 a Arctan(A+B) 



X^ = iCos(C-D) 



IF 



= ln(E«F) 



A/ 

-"-^-i Test K 



X^ = ln^F-E) 



K=2 

A. — 



X^ = ln^E+F) 



x 5 = | x 1+ x 2+ x 3+ x lf I 

— I 
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TEACH PROBLEM SET 5 
Loops 



Write (and keypunch) statements to evaluate X^, X.,, X^, X 
X<. in the exercises below. 

1. X 1 = 3 3 + 6 3 + 9 s + 12 s + ... + 99 s . 

2. X. = , i = 2, 3, ^ 5. 

TEACH PROBLEM SET 6 
Input - Output (without formats) 



Read A,B,C & D 



ik 

Punch A,B,C & D 



i 


= 1 


> 




t 


Read 2 



ik 

= AZ 3 +BZ S +CZ+D 



ik 

Punch Z, X, 



7 




^ i + i 



>!' No 



CHAKT - TEACH Problem Checking Program 



Read values to 
be used in this 
problem set 



Read the "right 
answers for 
this problem 
set 



iJi . 

Execute students 
statements 
evaluating 
for each value 
of 1 



K 

^ L 



r.n for each value of i 



Is X. correc- 



Store i as 
wrong 



! Store i as 
right 



Punch i, X. and 
i 

the right answer 



Increment i 
& test for 
exit 



{Are any proM Yes ■ 
Vlems right? J 



Punch the numbers 
of the correct prob- 



3 



/Are any prob^- Yes 
leas wrong? J 



Punch the numbers of 
the incorrect prob- j 



r TFACH POOBL^v NO 1 PLACC CTHI>PNT HCJWU CAR" I \ FRONT op TH I c r«B" ] " ] 

IIwtM'lH! NR I tf ( i r> i ,n>ipwr, f i <-■ ) ,R 1 <",ht ( 1 o i .X ( ! A I T"> 

RFAn,n,n,^,r-,r,F,r, ,H»(Pr r ii J T(!),T = i,irn in-> 

r IN5FPT STljnFMT CTJtcurMS .hfhINP tuk r(pr> 104 

K=0 11' 

L=0 1 n 6 

On ootr i -] , i c 107 

I F ( X ( 1 ) -RIGHT ( t ) ) P9] p,q<? 14 ,qoi7 i"p 
9912 L = L + 1 

NWRNG(U = I 310 

PUNCH Oq?C , I ,X I I ) .RIGHT ( I ) IV 

GO TO 9950 1 1 7 

9914 K = K + 1 1 1 - 

NRITF(K)=I 114 

99*0 CONTTNIIF lie 

IF(K) 9972.9924,997? 116 

9977 PUNCH 99?3»<NRITF( I) .1 = 1 »K) 117 

9923 FORMATI6H RIGHT, 1015) 1 1 P 

9924 IF(L) 997S.9926.092S H c 

9925 PUNCH 9977, < NWRNG < I ) , 1 = 1 ,L ) 170 

9926 STOP 171 
9920 FORMAT ( 9H PROB NO. I3.4X.9HY0UR ANS = F16.8.4X.l r> HRI GHT ANS= F16.fi) 127 

9927 FORMAT ( 6H WRONG. 1015) 17' 
FNf> 174 

10. 341296 10.345599 8.6867569 -40.683394 1*. 683097 .0034784^67 1?' 

.00034379602 1.1234-67 inf. 

. 10664679F+0? 0.419O167S 0.84447^1 7F+n7 0. 1 ?f iQifint+n; l?7 

.65303219E+O9 . 10259388F+01 0. 14580430F+01 0.879821 36F+01 128 

.46184077F+n? r.n7790°TF+03 179 



- TEACH PROBLEM NO 2 PLACE STUDENT HEADER CARD IN FRONT OF THIS CARD 

• TtK , NR I TF ( 5, .NWRNG. 5, .RIGHT. 5>.X< 5> . BUM 4. 4 

rJaD,K.L,((A(1.J,,J = 1.4).I = 1.4,.(B(I).IM.4,. GHT t I) » I - 1 .5 ) 

INSFRT STUOFNT STATEMENTS BFHIND THIS CARD 

K = 
L = 

DO 9919 I = 1 » ^ 

I F t X ( I ) -R I GHT ( I ) ) 9912.9914.991? 
9912 L=L+1 

NWRNG(L)=I 

PUNCH"9920.I »X< I ) .RIGHTt I ) 

GO TO 9919 
9914 K=K+1 

NRITF(K)=I 
9919 CONTINUE 

JF(K) 9922.9924.9922 - 

99"?"? PUNCH 90?3 , ( NRI TF ( t ) .1 = 1 »K) 

99 ? r, FORMAT (5HRIGHT.1 01 <j) 

99?4 IF(L) 9925.9926.9925 

99? 5 PUNCH 9927 » ( NWRNG ( I ) .1 = 1 »L) 

9926 STOP 

%&l^\l^&VVsM.*««* »HS- H....U..10HR.GHT MS. „6..> 

END 



2 3 
2.3964587 
6.0247685 
7.3214680 
5.4673001 



3,6241346 
4. 1024678 
8.*469?01 
41.125807 



4.1357653 
5.3751468 
Q. ^704368 
49T31B9.2 



5.3422587 
6.0347312 
1 0.43769* 
7701.4270 



3.3524569 
7.3107386 
-1 ,35794'*0 
.86225934 



4.3687946 5.3124672" 
5.3420769 6.0467258 
-7.534796? 



201 
202 
?0^ 
204 

20 5 
206 
207 
208 
209 
210 

"211 
212 
213 
2T4 
215 
216 

"TT7 

21 8 
219 
72V 
221 
222 

—27? 
224 
225 
776 
2?7 
??P 

-TFT 



- TEACH PROBLEM NO 3 PLACE STUDENT HEADER CARD IN FRONT OF THIS CARD 

- DIMfSoN NRITE(10,.NWRNG(10).RIGHT(10,.X(10,,R(4) 
RFAD.K.L.(B(I ).I = 1.4).(RIGHT( I) .1 = 1.5) 

C INSFRT STUOFNT ST AT EMFNTS RFHIND THIS CARD 

K = 
L = 

DO 9919 1=1.5 

I F ( X ( I ) -R I GHT ( I ) ) 991?»9914.991 2 
9912 L=L+1 

NWRNG(L) = I '" 

PUNCH 9920, I .X( I V .RIGHT ( I) 

GO TO 9919 
9914 K = K + 1 

NRITF(K)=I 
9919 CONTINUE 

IF(K) 9922.9924.9922 - 

99?? PUNCH 9923 . < NR I TF ( I ) » 1=1 »K1 

9923 FORMAT(5HRIGHT.1015) 

9924 IFJL) 99?5.99?6»99?5 

99?^ PUNCH 09?7 » t NWRNG ( T) .1 = 1 .L) 
99?6 STOP 

ltHSf!~'^'!3-V«,.HVOUR ANS= ri 6 .8,«,10„ R ,GHT <NS. TOT, 
FND 

23 9.3704368 10.437695 -1.3579430 -2.5347962 

157.09495 -1.3579430 15.915392 205.01975 11.0 



301 
30 2 
303 
304 

"T0"5 
306 
307 
308 
309 
3J_0 
311 
312 
313 
314 
315 
316 
317" 
318 
•*1 9 

-~3T'0" 
3?1 
322 

— 373" 
324 
325 
^2"6 
327 




C TEACH PROBLEM NO 4 PLACE STUDENT HEADER CARD T N FRONT OF THIS CARD 401 

n T MFNS T ON NRITF(5) tNWRNGCi) »RIGHT (5)»X(5) 40? 

RFAD, A»B*C»D*E»F*G »H»K* (RIGHT ( I ) ♦ 1 = 1 »5 ) 403 

C INSERT STUDENT STATEMENTS BEHIND THIS CARD 404 

K = 405 

L=0 406 

DO 9919 1=1*5 407 

IF < X( I )-RIGHT( I >) 9912.9914*9912 408 

9912 L = L + 1 409 
NWRNG(L)=I _ _ 410_ 
PUNCH 9970, I ,Xf I ) *RIGHT( I) ~ - 411 

GO TO 9919 41? 

9914 K=K + 1 413 

NRITF(K)=! 414 

9919 CONTINUF 415 
Lf±K) 9922*9924.9922 _ 416 

9922 PUNCH 992 3 . ( NR I t~E ( I ) » I = 1 * K ) 417 

9923 FORMAT ( 5HR I GHT » 10 1 5 ) 418 

9924 IFjL)9925»9926»9925 419 

9925 PUNCH 9927 » < NWRNG ( I ) » I = 1 »L ) 420 

9926 STOP 4?1 
5 9 ?-7 FORMAT (5HWRONGOOI5) 4?? 

9920 "FORMAT ("8HPROB NO. 1 3 ,4X »9HY0UR ANS= F 1 ft . 8 « 4X » 1 OHR I GHT ANS= Flft.P) 4?' 

FND 4?4 

1.24573ft9 2.3*801?3 3.860<37^6 4.760?541 E i.^0?^7ftR 6.2047*36 ■ 4?* 

7.0367524 8.3?05689 2 4?6 

1.1161260 1.3001178 .78878076 2.4429843 5.6480088 427 



C. TEACH PROBLFM NO 5 PLACF STUDENT HFADER CARD IN FRONT OF THIS CARD 501 

D T MFNS I ON NRITF< 5) »NWRMG<5 ) »R IGHT ( 5 ) *X < 5 ) 50? 

RFAD. A,R*C»D.F, ( RIGHT ( I ) « 1=1 .5) 503 

C. . _ . INSFRT STUDENT ST ATEMFNTS BFHIND THIS CARD 504 

K = "50 5 

L=0 506 

DO 9919 1=1,5 507 

IF (XU )-RIGHTU ) )9912*9914»9912 508 

991? L=L+1 509 

NWRNG(L) = I 510 

PUN CH 99 20 » I ♦ X ( I ) » R I GHT ( I ) ~ ' 511" 

GO TO 9919 512 

9914 <=<+! 51^ 
NRITF(K) = I 514 

9919 CONTINUF 515 
IF(K)9922*9924.9??2 516 

992 2 P'UNCH 9923 *Tn"RI tFl 'l ) * 1=1 *K ) 5T7 

99?3 EORMAT(5HRIGHT,10I5) 518 

9924 JF(LJ_9925»9926 .992* _ 519 

9925 PUNCH 9927 »( NWRNG ( I ) » I = 1 »L ) " 520 

9926 STOP 521 

9927 FORMAT( 5HWRONG*10I5) 522 

9920 FORMAT (8HPROB NO. I3*4X»9HYOUR ANS= F16 .8 *4X » 10HR IGHT ANS= E16.81 5?3 
END 524 

2.3964587 3.6241346 4.1357653 5.3422587 3.3524569 112761.0 23922.716 5?5 

11018.845 7478. ?3?5 6160.70*4 ">76 



C TEACH PROBLEM NO 6 PLACE STUDENT HEADER CARD IN FRONT OF THIS CARD 

DIMENSION NRITEI5) »NWRNG ( 5 ) »R IGHT ( 5 ) »X { 5 ) 

RFAD,<RIGHT(I)»I=1»5) 
_C IjNSERT STUDENT STATEMENTS BEHIND THIS CARD ._ _ 

< = 

L = 

DO 9919 I=l»5 ■■- 

IF (XI I ) -RIGHT* I ) )9912»9914»9912 
9912 L = L + 1 

NWRN G(L) = I _ - - — 

PUNCH 9920 » I * X ( I ) »R I GHT ( I ) 
GO TO 9919 

9914 <=*<+! • _ ' 

NRITE(K)=I 
9919 CONTINUE 

TF1 IQ9922>992 4»992_2 



601 

"W " 
60? 
604 

~6~0T~ 
606 
607 
~6W 
609 
610 

-6TT 
612 
613 

"ST2T 
615 
616 



9922 PUNCH 9923 » ( NR I TE ( I) » I =1 »K > 

9923 FORMAT(5HRIGHT»10I5) 

9924 IF(L)9925,9926t9 t >2 c y 

9925 PUNCH 99 2 7 ♦ ( N WRNG ( I ) » I = 1 » L ) 

9926 STOP 

992 7 FORMA T ( 5HWRO NG » 101 5_) _ 

992 FORMAT (8HPROB NO. I3.4X.9HY0UR ANS 

END 

.97569023E+04 . 1 1699576E+04 

.34042183E + 03 . 23871681F+04 

14.369025 15.6753869 1.0367521 

8.4357205 _ 

3.9857423 
9.8530247 

2.5237586 .. 

"5.1472536 



617 
618 
619 



F16.8.4X.10HR1GHT AWS^riT^T 
0.15283722E+05 
6.9851203 



620 
621 
622 
-57T 
624 
625 

627 
628 
S7T 
630 
631 



